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MATRICES (11) 


y Matrices bidi- 
= mensionales 


AS matrices bidimen- 
sionales son agrupa- 
ciones de variables 
simples en dos di- 
mensiones, es decir, 
las variables se orde- 
nan en filas y colum- 
nas formando una ta- 
bla, tal y como se muestra en la figura 1. 


M FILAS 


A Fig. 1. Representación esquemática de una 
AA | matriz bidimensional. Cada recuadro 
NE representa una variable o posición de matriz. 


En una matriz bidimensional cada posi- 
ción viene especificada por dos paráme- 
tros: el primero indica el número de la fila 
y el segundo el número de la columna. 
Por tanto, para hacer referencia a una 
variable de una matriz de dos dimensio- 
nes tendremos que escribir el nombre de 
la variable correspondiente a dicha ma- 


triz, y, a continuación, dos números sepa- 
rados por una coma. Por ejemplo: 


J (8,2) 


hace referencia al elemento de la matriz 
J (numérica) que está situado en la fila 8 
y en la columna 2. 

Al igual que sucedía con las matrices 
de una dimensión, tanto las filas como las 
columnas se empiezan a numerar por 
cero. La excepción la presenta el SPEC- 
TRUM, que empieza a numerar por uno. 

Supongamos una matriz A de 3 filas y 2 
columnas. El nombre de cada variable 
elemental está indicado en la figura 2. 


Y 


E 
lA Fig. 2. Elementos de una matriz de 3 filas 
y 2 columnas. 


Sin embargo, en el SPECTRUM el nombre 
de cada elemento sigue las pautas re- 
presentadas en la figura 3. 


Para trabajar con matrices de dos di- 
mensiones es necesario dimensionarlas 
primero. Para ello se utiliza, como ya sa- 
bemos, la instrucción DIM, sólo que aho- 
ra con el siguiente formato: 


DIM < nombre de variable > (n.* de filas, 
n.* de columnas - 1) 


A Fig. 3. Elementos de una matriz de 3 filas y 2 
E) columnas en el SPECTRUM. 


En el SPECTRUM el formato será: 
DIM < nombre de variable > 
(n.* de filas, n. *? de columnas) 

Recordemos que cuando trabajamos 
con matrices unidimensionales utilizába- 
mos un bucle FOR-NEXT cuya variable ín- 
dice se utiliza como subíndice para los 
elementos de la matriz. Ahora necesita- 
mos dos subíndices, por lo que tendre- 
mos que utilizar dos bucles anidados. 

Vemos un ejemplo. El programa 1 car- 
ga una matriz de F filas y C columnas con 
números enteros al azar comprendidos 
entre 0 y 99, y a continuación imprime la 
matriz en pantalla, en forma de tabla. 


REM RIA RAR 
REM * MATRIZ BIDIMENSIONAL  * 
REM MM IM IE II E E IE 
CLS x 
INPUT "NUMERO DE FILAS ";¿F dE 
INPUT "NUMERO DE COLUMNAS ";C 
CLS 
DIM A(F,C> 
FOR I=1 TO F 
FOR J=1 TOC 
LET A(1,J)=INT(RND(1)*100) 
NEXT J sd 
NEXT 1 , 
LET N=INT(40/C> 
FOR I=1 TO F 
LET T=1 
FOR J=1 TO C 
PRINT TAB(T>¡AC1,J)5 
LET T=T+N 
NEXT J 

210 NEXT 1 


En la figura 4 podemos ver la evolución 
del estado de la matriz A del programa 1 


suponiendo que al ejecutarlo asignamos 


el valor 3 a la variable F y el valor 2 a la 
variable C (matriz de 3 filas y 2 colum- 
nas). 


N2 DE VUELTA DEL 
BUCLE 


rá Fig. 4. Evolución del programa l en el proceso 
BA | de carga de datos en la matriz para F= 3 y 


Podemos observar que en el programa 
1 hemos desechado la fila O y la colum- 
na 0 de la matriz. Esto tiene como único 
objeto que los bucles de carga de datos 
e impresión de resultados puedan servir 
para todos los ordenadores, incluso el 
SPECTRUM. 

La impresión en pantalla se ha pensa- 
do para una pantalla de 40 columnas. Si 
la pantalla es de 32 columnas, habrá que 
sustituir la línea 140 por: 


140 LET N = INT (32/C) 
y si es de 80 columnas: 
140 LET N = INT (80/C) 


Finalmente, en la figura 5 podemos ver 
un ejemplo de la ejecución del progra- 
ma 1, mostrando en pantalla una matriz 
de 20 filas y 8 columnas. 


[A Fig. 5. Presentación en pantalla del 
programa 1. 
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En cuanto a las matrices altanuméricas 
bidimensionales, se trabaja exactamen- 
te igual que con las numéricas. En el 
SPECTRUM como sucedía con las matrices 
alftanuméricas unidimensionales, hay 
que indicar además la longitud máxima 
de las cadenas que se van a almacenar 
en la matriz. 

Por tanto, si escribimos DIM N$ (8,5,12) 
en el SPECTRUM, estamos reservando me- 
moria para una matriz N$ de 8 filas y 5 co- 


lumnas con 12 caracteres como máximo 
de longitud de cada cadena. 

En el programa 2 tenemos un ejemplo 
de utilización de matrices altanuméricas 
bidimensionales para la creación de un 
fichero de datos compuesto por F fichas 
y C campos por ficha. Además, el mismo 
programa nos permite buscar una ficha 
cualquiera por el campo que deseemos. 
Para ello, la fila O de la matriz almacena 
los nombres de los campos. 


REM e 


REM *x 


FICHERO DE DATOS 


* 


REM AIR RRRRRR 


CLS 


INPUT "NUMERO DE FICHAS";F 
INPUT "NUMERO DE CAMPOS POR FICHA";C 


CLS 
DIM N$(F,C> 
FOR I=1 TO C 


PRINT "NOMBRE DEL CAMPO ";1; 


INPUT N$c0, 1) 
NEXT 1 

cLs 

FOR l=1 TO F 
PRINT "FICHA ";1 
FOR J=1 TO C 
PRINT N$c(0,J>; 
INPUT N$(1,J> 
NEXT J 
CLS 
NEXT 1 
PRINT 
GOTO $10 

CLS 

PRINT ¿PRINT 


PRINT TABC17)>; "OPCIONES 


PRINT TABC(17>3" 
PRINT :¿PRINT 
PRINT TABC(16>;"0 
PRINT 

FOR I=1 TO C 
PRINT TAB(153315". 
PRINT 

NEXT 1 

PRINT :¿PRINT :¿PRINT 


"YA ESTA CREADO EL FICHERO" 


+. NUMERO DE FICHA" 


"¿NS(0,1) 


INPUT "SELECCIONA EL CAMPO POR EL QUE DESEAS BUSCAR" ¿R 
IF R<D OR R>C> THEN GOTO 340 


CLs 
IF R=0 THEN GOTO 530 


PRINT N$(0,R>;" BUSCADO" ; 


INPUT Bs 
FOR I=1 TO F 


IF N$C(I,R>=B% THEN GOTO 440 


NEXT 1 


PRINT B$;" NO FIGURA EN EL FICHERO" :GOTO 410 


CLs 

PRINT "FICHA "31 
FOR J=1 TO C 
PRINT 


PRINT N$(0,J>3":",N$(I,J)> 


NEXT J 
GOTO $10 
INPUT 


"NUMERO DE FICHA BUSCADO" ¿N 


IF N<1 OR N>F THEN GOTO 530 


CLsS 

PRINT "FICHA "¿N 
FOR I=1 TO € 
PRINT 


PRINT N$(0,1>3":",N$(N,T> 


600 NEXT_1 

610 PRINT ¿PRINT :PRINT 

620 PRINT "¿QUIERES BUSCAR ALGUNA FICHA? (S/N)" 
630 LET R$=INKEYS: IF R$="" THEN GOTO 630 

640 IF R$="S" OR R$="s" THEN GOTO 240 


En las figuras 6 y 7 podemos ver distintos momentos de la ejecución del programa 2. 


OPCIONES 


FICHA 2 


APELLIDO 1: — MALDONADO 
. NUMERO DE FICHA 


PES APELLIDO 2: PLAZA 


. APELLIDO 2 NOMBRE : ESTHER 


+ NOMBRE 


: DIRECCION: CONDE DE PEÑALVER 38 
. DIRECCION 


TELEFONO: . 8466104 


+. TELEFONO 


SELECCIONA EL CAMPO POR EL QUE DESEAS BUSCAR? ¿QUIERES BUSCAR ALGUNA FICHA? (S/N> 


[A Fig. 6. Opciones de búsqueda de una ficha en | | Fig. 7. Presentación en pantalla de una ficha en 
el programa 2. el programa 2. 


0 Manejo de la 
impresora 


(INT 17H) 


A rutina del BIOS que 
está destinada a ma- 
nejar la impresora (o 
las impresoras) esta 
asociada a la in- 
terrupción software 
número 23 (17 en 
hexadecimal). 

Antes de la instrucción INT 17H hay que 
definir en el registro DX un 0, un 1 o un 2 
para indicar cuál de las impresoras se 
quiere utilizar. En caso de tener una sola 
impresora debe definirse DX = 0. 

Igualmente, antes de la instrucción INT 
17H debe definirse en el registro AH un 0, 
un 1 o un 2 para indicar la función que se 
quiere realizar: 

AH = 0. Imprime el carácter contenido 
en el registro AL. Ejemplo: si se desea im- 
primir el carácter “A”, se pueden utilizar 
las instrucciones: 


Xx ,0 ¡ Selecciona la primera lo única) impresora 
t a imprimir 


AH, O y Define la función de impresión 
¡ Llama a la' interrupción software 17 (hexadecimal) 
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Después de haberse ejecutado la ins- 
trucción INT 17H, el registro AH contiene 
el estado de la impresora. Si se ha de- 
vuelto AH = 1, debe interpretarse que la 
impresora no está preparada. Otros valo- 
res deben interpretarse igual que en la 
función de «Lectura del byte de estado» 
más abajo descrita. 

AH = 4. Prepara la impresora para ser 
utilizada. 

AH = 2. Lee el byte del estado de la im- 
presora. Al terminar la instrucción INT 17H, 
el registro AH contiene el byte de estado. 
Los bits de este byte que estén en «on» 
(es decir, que valgan 1) deben interpre- 
tarse de la forma siguiente: 


— El bit 0 indica que la impresora no 
responde. 

— El bit 3 indica error de entrada/sali- 
da. 

— El bit5 indica que se ha acabado el 
papel. 

— El bit 7 indica que la impresora está 
ocupada. 


0 Manejo del teclado (INT 16H) 


El BIOS maneja los caracteres genera- 
dos por el teclado a través de dos rutinas 
asociadas a dos interrupciones diferen- 
tes. 

La primera rutina está asociada a la in- 
terrupción hardware del teclado. Cada 
vez que se pulsa una tecla, se activa esta 
interrupción y la rutina se encarga de co- 
piar la información de la tecla pulsada 
en un área de memoria del BIOS denomi- 
nada «buffer del teclado». 

La segunda rutina está asociada a la 
interrupción software número 22 (16 
hexadecimal) y está destinada a ser lla- 


mada por los programas en los que se uti- 
lice el teclado y contiene tres funciones 
diferentes. 

La función a realizar se define (como 
en las demás interrupciones) en el regis- 
tro AH. 

AH = 0. Lee un carácter del teclado. Al 
terminar esta función, el registro AL con- 
tiene el carácter ASCII tecleado y AH 
contiene un código auxiliar denominado 
«scan code». En la mayoría de los casos 
el «scan code» coincide con el número 
de la tecla asociada al carácter. Las te- 
clas de control no llevan asociadas nin- 
gún carácter ASCII, por esta razón de- 
vuelven AL = 0, lo cual indica que debe 
examinarse el «scan code» para distin- 
guir cuál ha sido la tecla de control pul- 
sada. 

El caracter leído se elimina del buffer 
del teclado. 

AH = 4. Comprueba si se ha pulsado al- 


ama tecia v utiliza el fiaa ZF nora indicar- 
lo. En caso afirmativo, devuelve el citado 


flag en «off» y la tecla pulsada en AX (el 
código ASCII en AL y el «scan code» en 
AH). En caso negativo, devuelve el flag 
en «on». Esta función no elimina el carác- 
ter leído del buffer del teclado como 
hace la función anterior. 

AH = 2. Devuelve en el registro Al el 
byte de estado del teclado. Los bits de 
dicho byte que están en «on» indican lo 
siguiente: 

— El bit 0, que se ha pulsado la tecla 
«Shift» del lado derecho. 


— El bit 1, que se ha pulsado la tecla 
«Shift» del lado izquierdo. 

— El bit 2, que se han pulsado las te- 
clas «Ctrl» y «Shift». 

— El bit 3, que se han pulsado las te- 
clas «Alt» y «Shift». 

— El bit 4, que se ha pulsado la tecla 
«Scroll Lock». 

— El bit 5, que se ha pulsado la tecla 
«Num Lock». 

— El bit 6, que se ha pulsado la tecla 
«Caps Lock». 

— El bit 7, que está activo el estado de 
«inserción de caracteres». 


m Manejo de las pantallas 
(INT 10H) 


Las rutinas del BIOS que sirven para el 
manejo de las pantallas están asociadas 


a la interrupción 16 (10 hexadecimal) y 
contienen 16 funciones. 

Antes de pasar a describir algunas de 
estas funciones es conveniente hacer al- 
gunas aclaraciones: 


— Las funciones de manejo de carac- 
teres de esta interrupción se pueden 
aplicar indistintamente a la pantalla mo- 
nocroma y a la pantalla de color en cual- 
quiera de sus modalidades. 

— Las operaciones de lectura/escritu- 
ra de caracteres de la pantalla se reali- 
zan en la posición que en ese momento 
tenga el cursor. 

— La posición del cursor se define por 
medio de dos números que indican la fila 
y la columna contadas desde el vértice 
superior izquierdo, de modo que a dicho 
vértice le corresponde la fila 0, columna 
O. 

— Cada carácter en la pantalla lleva 
asociado un byte de atributo, que es un 
código con el que se pueden definir ca- 
racterísticas como color del carácter, co- 
lor de fondo, intensidad, parpadeo, etc. 

— la pantalla de color en los modos 
alfabéticos permite tener definidas hasta 
8 páginas de textos. Por esta razón, en las 
funciones 8, 9 y 10 hay que definir en el 
registro BH el número de la «página» so- 
bre la que se quiere actuar, que debe ser 
un número comprendido entre 0 y 7. En 
los casos en que se utilice una sola pági- 
na debe especificarse el BH = 0. 

Igual que en las interrupciones anterio- 
res, se utiliza el registro AH para definir la 
función deseada. 

AH =0. Establece la modalidad de fun- 
cionamiento de la pantalla. La modali- 
dad deseada se especifica en el registro 
AL, de acuerdo con el siguiente conve- 
nio: 


1. Pantalla de color. Modalidades al- 
fabéticas. 

— AL=0 define el modo blanco y ne- 
gro 40 x 25 (es decir, los caracteres se si- 
túan en 40 columnas y 25 filas). 

— Al = 1 define el modo color 40 x 25. 

— AL = 2 define el modo blanco y ne- 
gro 80 x 25. 

— AL = 3 define el modo color 80 x 25. 


2. Pantalla de color. Modalidades 
gráficas. 
-- AL =d4soadefine el modo color 


320 x 200 (es decir, los puntos se sitúan 
en 320 columnas y 200 filas). 
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— AL = 5 define el modo color 
320 x 200. 

— AL=6 define el modo blanco y ne- 
gro 640 x 200. 


3. Pantalla monocroma. 

— Al =7 define el modo blanco y ne- 
gro 80 x 25 

AH = 2. Define la posición del cursor. 

La fila debe especificarse en el registro 
DH y la columna en el registro DL. 

AH = 3. Lee la posición del cursor. 

La fila se obtiene en el registro DH y la 
columna en el registro DL. 

AH = 8. Lee el atributo y el carácter 
contenidos a la posición donde esté si- 
tuado el cursor. 

Cuando se ejecuta esta función el re- 
gistro AL contiene el código ASCII de di- 
cho carácter y AH su atributo. 


AH = 9. Escribe un carácter con un de- 
terminado atributo en la posición donde 
esté situado el cursor. 

Antes de ta llamada, el registro AL 
debe contener el código ASCII del ca- 
raéter deseado y AH su atributo. CX debe 


contener el número de veces que se 
quiere repetir dicho carácter a partir de 
la posición del cursor. 

AH = 410. Escribe un carácter sin modifi- 
car el atributo. 

Igual que la función anterior, el registro 
AL debe contener el código ASCII del ca- 
rácter deseado y CX debe contener el 
número de veces que se quiere repetir 
dicho carácter. 

AH = 14. Escribe un carácter en modo 
teletipo. 

Es decir, interpretando los códigos re- 
cibidos, y simulando en la pantalla el 
funcionamiento de un teletipo a efectos 
de salto de líneas, retorno de carro, paso 
atrás, etc. 

AL debe contener el código ASCII del 
carácter deseado y BL el atributo. 

AH = 15. Obtiene del BIOS datos acer- 
ca del modo de funcionamiento de la 
pantalla. 

En el registro AL se obtiene el modo, 
que es un número de 0 a 7 que debe in- 
terpretarse con el mismo convenio que 
se explicó en la función AH = 0. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


O Programa: 
Space 

Invader para 

Spectrum 


OCO hay que comen- 
tar sobre este juego 
por todos conocido, 
salvo las teclas que 
tenemos que utilizar 
para mover nuestra 
nave y para disparar. 
Estas son: 


Z — Izquierda 
X — Derecha 
M — Disparo 


El programa se divide en dos partes. La 
primera nos permite introducir el código 
máquina en memoria y ejecutarlo. La se- 
gunda es el propio programa en código 
máquina y que es el juego en realidad. 

Referente al primer programa, se ad- 
vierte que, debido a la gran cantidad de 
líneas DATA, es muy fácil confundirse. 
Aunque el programa lleva un cheksum, 
hay que tener mucho cuidado a la hora 
de introducir el programa. 


10>REM aaa SOS SIS ISSO SEIS SOS IO IOIOJOK 
REM* SPACE INVADER  x 
REM dSSSIS SOS IS ISSO SSP ISSO lO SOOlOJOJOK 


REM 


REM Aa S SISSI” ISSSTE OSOS OSOS OOOO OOO jOjojoKk 


REM * (c) Ediciones Siglo Cultural *x 


REM *x (c) 1987 


k 


IMSS SSI E SOS ISSO lSjOjOO IO 


CLEAR 54999 
LET TOT=0 
RESTORE 1000 


PRINT AT 10,8; FLASH 1; "ESPERE UN MOMENTO" 
PRINT AT 12,9; FLASH 1; INVERSE 1; INK 4; "CARGANDO DATAS. " 


FOR 1=55000 TO 56906 
READ A 
LET TOT=TOT+A 
POKE I,A 

NEXT I 


U PROGRAMAS 


225 
230 
235 
240 
250 
260 
270 
280 
300 
310 
320 
330 
340 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
990 
991 


992 
993 


994 
1000 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1130 
1135 
1140 
1145 
1150 
1155 
1160 
1165 
1170 
1175 
1180 
1185 
1190 
1195 
1200 


IF TOT<>215743 THEN GO TO 500 
PRINT AT 17,2; INK 5;" PULSE UNA TECLA PARA EMPEZAR” 
PAUSE O 


CLS 

PRINT AT 0,0; PAPER 7; INK í;"PUNTOS”; 
PRINT . 0" 

PRINT AT 0,25; PAPER 7; INK 1;"VIDAS"; 
PRINTS" 


RANDOMIZE USR 55000 

PRINT AT 0,31;"0" 

PRINT AT 11,12; FLASH 1;"GAME OVER” 
FOR I=1 TO 400: PAUSE 1: NEXT I 

GO TO 230 

REM, 

REM ASSSSS SS SOS SES OSOlOO OOO JOIOK 

REM * ERROR EN LINEAS DATA *x 

REM ARSS OSO OSO SOS ISSO lOOlOJOlOJOJOK 

REM 

CLS 

PRINT "LAS LINEAS DATAS NO ESTAN CORRECTAMENTE ESCRITAS" 
PRINT 

PRINT "REPASALAS ANTES DE CONTINUAR. " 
GO TO 9999 

REM 

REM AMSSSSlSlSSlSlO OOO OK 


REM * LINEAS DATA x*x 
NES 


REM 

DATA 62,2,205,1,22,175,50,80,222,50,81, 222 

DATA 50,93, 222,62,3,50, 100, 222,62,37,50, 97 

DATA 222,33,0,241,17,1,241,54,255,1,254,0 

DATA 237,176,175,50,82,222,50,77,222,50,79,222 
DATA 205,183,217,205,183,220,205,55,220,62,7, 8 
DATA 17,3,1,237,83,90,222,17,0,23,33,116 

DATA 221,205, 110, 220, 175,50, 78, 222,50,85,222,58 
DATA 97,222,50,96,222,62,5,50,99,222,175,50 
DATA 98, 222,62,127,219,254,230,1,200, 118,205, 210 
DATA 216,33, 98,222,52,62,1,166, 40,6,205, 241 
DATA 218,205, 1,216,33,96,222,53,32,15,58, 97 
DATA 222,50,96,222,205,99,219,58,89,222,254,22 
DATA 200,33,99,222,53,32,8,54,5,205,25,218 
DATA 205,37,217,58,78,222,61,202,202,215,58, 92 
DATA 222,167,32,182,33,93,222,126,60,254,7,32 
DATA 1,175,119,17,1,72,33,0,72,1,255,15 

DATA 237,176,58,77,222,167,202,236,214,1,2,1 
DATA 237,67,90,222,33,188,221,58,76,222,95, 22 
DATA 1,205, 110, 220, 195, 236, 214,62,22,215,175,215 
DATA 62,7,215,237,75,80, 222,205, 43, 45,205, 227 
DATA 45,201,1,0,0,237,95,211,254,11,120,177 
DATA 32,247,175,211,254,33,100,222,53,200, 62,22 
DATA 215,62,0,215,62,31,215, 126,198, 48,215, 1 
DATA 3,1,33,188,221,237,67,90,222,22,23,58 

DATA 85,222,95,205,110, 220, 195,17,215,62,3,8 
DATA 58,77,222,167,40,51,58,76,222,95,22,1 

DATA 33,188,221,213,1,2,1,237,67,90,222,205 
DATA 110,220, 209, 28, 123, 254,31, 40, 19,50,76,222 
DATA 33,60,222,205,110,220,33,171,9,17,1,0 
DATA 205,181,3,201,175,50,77,222,201,237,95,230 
DATA 255,192,62,1,50,77,222,61,50, 76,222, 17 
DATA 0,1,1,2,1,237,67,90,222,33,60, 222 

DATA 205,110, 220,201,58,77,222,167,200, 58, 76, 222 
DATA 79,187, 40,3,60,187,192,89,33,188,221,17 
DATA 2,1,237,83,90,222,205,110,220,237,95,230 
DATA 3,33, 144,216,6,0,79,9,78,42,80,222 

DATA 9,34,80, 222,205,183,215,201,10,50, 150,200 
DATA 17,1,242,33,0,242,1,127,0,54,0,237 

DATA 176,17,4,1,237,83,90,222,17,2,19,33 

DATA 188,221,6,4,197,213,6,4,197,213,229,205 
DATA 110,220, 225,209, 20, 193,16, 244,209, 193,62,8 


1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1365 
1370 
1375 
1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 
1440 
1445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1535 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


131,95, 16,232,33,156,1,17,19,0,205, 181 
3,201,58,82,222,167,200,33,1,1,34,90 
222,62,7,8,58,84,222,95,58,83,222,87 

205, 141,217,56,5,175,50,82,222,201,33, 188 
221,213,205, 110,220, 209,21,122,254,1,32,5 
205,92, 216,24,232,50,83,222,205, 141,217, 48 
224, 213,205, 120, 218, 209,58,82,222,167,200, 33 
180,221,1.1,1,237,87,90,222,205, 110,220 
201,58,79,222,167,200,17,1,1,237,83,90 
222,71,33,0,241,62,7,8,126, 44, 94, 44 
254,255, 40, 248, 197, 45, 45,87, 229,213,33, 188 
221,205, 110, 220, 209, 225, 20, 122, 254, 23,32, 14 
205,120, 217,54,255,58,79,222,61,50, 79, 222 
24,16,205, 141,217, 48, 240, 114,229, 213,33,180 
221,205, 110, 220, 209, 225, 44, 44, 193, 16, 193, 201 
58,85,222,187,40,9,60,187, 40,5,60, 187 
40,1,201,62,1,50, 78,222,201, 122,214, 19 
216,7,7,7.7,7,131,79,6,242, 10, 187 
40,23,175,2,229,98,107,205,146,220,6,8 
237,95,230,231,166,119,36,16,247,55,63,225 
201,55,201,33,0,242,17,1,242,1,127,0 
54,0,237,176,6,16,33,2,242,84,93,28 
197,1,3,0,54,1,237,176,193,125,198,5 
111,16,238,62,5,8,17,4,1,237,83,90 
222,6,4,17,2,19,205, 244, 217,62,8,131 
95,16,247,201,197,213,33,220,221,213,205, 110 
220,209, 20,33,252,221, 213,229, 205, 110, 220, 225 
209,20,213,205, 110, 220, 209, 33, 28, 222, 20, 205 
110, 220, 209, 193, 201, 58,93, 222,60,7,71,58 
79,222,184,200,58,89,222,254, 21,200, 237,95 
230,7,79,237,95,230,1,129,79,129,129, 38 
240,111,6, 4,86, 44, 94, 44, 126, 230, 128, 32 
7,17,25,0,25,16,241,201,33,0, 241, 126 
254,255,40, 4, 44, 44, 24, 247, 20,20,114, 237 
95,230,1, 131, 44, 119;,95,33, 180, 221,62, 7 
8,1,1,1,237,67,90,222,205, 110, 220, 33 
79,222,52,201,58,82,222,167,200,17,2,2 
237,83,90,222,33,0, 240, 58,92,222,71,58 
84,222,95,58,83,222,87,197,70, 44,78, 44 

126, 44, 230, 128, 40, 246, 120, 186, 40, 4,60, 186 
32,71,121,187, 40, 4,60, 187,32,63,45,54 
0,33,148,221,80,89,213,205, 110,220, 33,106 
6,17,5,0,205,181,3,209,1,0,160,11 
120,177,32,251,33,188,221,205, 110,220, 42,80 
222,1,10,0,9,34,80, 222,205, 183, 215,33 
92,222,53,175,50,82,222,193,33,97,222,53 
201,193,16,163,201,17,3,1,237,83,90, 222 
22,23,58,85,222,95,62,7,8,33,188, 221 
219,223,254,1, 40, 41, 254, 2, 40, 28, 254,16 
40,58,62,127,219, 254, 230, 4, 40,50, 14,254 
65,237,64,62,2,160, 40,6,62, 4,1860, 40 
10,201,123,167,200, 205,70, 219,29, 24,8,123 
254, 29,200, 205,70, 219, 28,33,116,221,123,50 
85,222,205, 110, 220, 201, 213,205, 110, 220,209, 201 
58,82,222,61,200,58,85,222,60,50, 84, 222 
62,22,50,83,222,62,1,50,82,222,201, 58 
89,222,254,17,32,7,58,94,222,61,204, 148 
216,205, 174, 219,33, 242,12,17,1,0,205, 181 
3,58,94,222,254,1,40,29,58,87,222,254 

30, 40,7,58,88,222,167,40,1,201,58,95 
222,50,86,222,175,50,95,222,60,50, 94, 222 
201,58,86,222,237,68,50,95,222,175,50,94 


DATA 222,201,175,50,87,222,50,89,222,61,50,88 


DATA 
DATA 
DATA 
DATA 


222,17,2,2,237,83,90,222,33,0,240, 58 
94,222,87,58,95,222,95,6,4,62,2,8 
197,6,9,197,213,213,229,86, 44, 94, 44, 126 
44,230,128, 40,82,33,188,221,213,205,110,220 


Mi PROGRAMAS 


1540 DATA 193,225,209, 120,130, 119,87,44,121,131,119,95 
1545 DATA 44,126,79,58,87,222,187,48,4,123,50,87 

1550 DATA 222,58,88,222,187,56,4,123,50,88,222, 58 

1555 DATA 89,222,186, 48, 4, 122,50,89,222,121,238,32 

1560 DATA 119, 44, 229,230,127,79,6,0,33,244,220,9 

1565 DATA 205,110, 220,225,209, 193,16,167,193,8,60,8 
1570 DATA 16,158,201,193,209, 24, 241,17,2,2,237,83 

1575 DATA 90,222,6,4,62,2,8,33,0,240,197,6 

1580 DATA 9,197,86, 44,94, 44,126, 44,71,229,230, 128 

1585 DATA 40, 13,33, 244,220, 120,230,127,6,0,79,9 

1590 DATA 205, 110, 220, 225, 193, 16,226, 193,8,60,8,16 

1595 DATA 217,201,235,237,75,90,222,197,229,205,146,220 
1600 DATA 6,8,229,26,119,36,19,16,250, 225, 44,217 

1605 DATÁ 8,18,28,8,2175,13,32, 230,220) 193,30, 16 

1610 DATA 226,201,197,68,77,120, 230, 24, 246, 64, 103, 120 
1815 DATA 23057: Tots rr, 1, 1297111, 193,229.02 17 Í 
1620 DATA 209, 122,230, 24,203, 47,203, 47,203,47,246,88 
1625 DATA 87,217,201,58,93,222,198,11,33,0,240,95 

1630 DATA 14,224,22,0,6,4,197,213,6,9,115, 44 

1635 DATA 114, 44, 121,238,32,79,119, 44,20,20,20,16 

1640 DATA 241,209, 193,123,214,3,95,121,238,64,79,186 
1645 DATA 225, 62,36,50,92,222,62,1,50,95,222,175 

1650 DATA 50,94,222,201,8,4,2,7,15,25,49,121 

1655 DATA 16,32,64,224,240,152,140,158,127,63,48,31 
1660 DATA 31,32,16,8,254,252,12,248,248,4,8,16 

1665 DATA 2,4,2,7,15,25, 49, 121,64,32,64,224 

1670 DATA 240, 152, 140, 158, 127,59,60,31,31,32,64, 128 
1675 DATA 254,220, 60, 248, 248, 4,2,1,0,15,31,63 

1680 DATA 127,99,127,127,0,240,248,252,254, 198,254, 254 
1685 DATA 127,115,50,24,12,6,0,0,254,206,76,24 

1690 DATA 48,96,0,0,0,15,31,63,127,99,127,127 

1695 DATA 0, 240, 248, 252,254, 198, 254,254, 127,115,50,16 
1700 DATA 24,8,8,0,254,206,76,8,24,16,16,0 

1705 DATA 0,0,1,7,63,127,112,96,24,60,255,255 

1710 DATA 255,255,0,0,0,0,128,224,252,254,14,6 

1715 DATA O, 120, 68,66, 66,68,120,0,0,59,106,85 

1720 DATA 42,53,26,13,0,16,168,88,176,88,168,84 

1725 DATA 26,53,87,45,56,16,0,0,172,84,234,86 

1730 DATA 136,4,0,0,24,24,24,24,24,24,24,24 

1735 DATA 0,0,0,0,0,0,0,0,0,0,0,0 

1740 DATA 0,0,0,0,0,0,0,0,0,0,0,0 

1745 DATA 0,0,0,0,0,0,0,0,1,3,7,15 

1750 DATA 31,63,127,255,255,255,255,255,255,255,255,255 
1755 DATA 255,255,255,255,255,255,255,255, 128, 192, 224, 240 
1760 DATA 248, 252,254,255,255,255,255,255,255,255,255,255 
1765 DATA 255,255,255,255,255,255,255,255,255,255,255,255 
1770 DATA 255,255,255,255,255,255,255,255,255,255,255,255 
1775 DATA 255,254, 252,248, 240,224, 192, 192,0,0,0,0 

1780 DATA 0,0,0,0,0,0,0,0,0,0,0,0 

1785: DATA: 255, 127,163,31,15,7,3.3.1:3.11,27 

1790 DATA 12,23,35,96,128,192,208, 152, 48,232,196,0 

1795 DATA 0,0,0,0,0,0,0,0,0,0,0,0 


Para todos aquellos que entienden de 
codigo maquina, se incluye el listado 
fuente del programa. 


1000 AMOO OSOS lO jojaojok 


1001 
1002 
1003 


1004 ; 


1005 


1006 ; 


1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 


¡k INVADER  * 
¡A * 
OOOO OJO JOK 
ORG 55000 
LD 4,2 
CALL *$1601 
XOR A 
LD (SCORE),A 
LD (SCORE+1),A 
LD  (LEVEL),A 
E E 
LD (VIDAS),A 
NEWLEV LD  A,37 
LD (CON1),A 
LD  HL,*$F100 
LD DE, *F101 
LD (BL),*8FF 
LD  BC,254 
LDIR 
XOR A 
LD (FLGD),A 
LD (OVNF),A 
LD  (NDISP),A 
CALL SETUPB 
CALL CREAT' 
CALL SACAM 
SETVID LD  A,7 
EX  AF,AF 
LD  DE,*0103 
LD  (TAM),DE 
LD  DE,*$1700 
LD  HL,GRAFB 
CALL SPRITE 
XOR A 
LD (MFLAG),A 
LD (CBX),A 
LD  A,(CON1) 
LD  (CON),A 
LO 43 
LD  (CICL2),A 
XOR A 
LD  (CICLOS),A 
PLAY 
LD A,87F 
IN  A,(254) 
AND 1 
RET Z 
HALT 
CALL MOVDB 
LD  BL,CICLOS 
INC (HL) 
0 ES 
AND (HL) 
JR  Z,PLAYO 
CALL MUEVEB 
CALL MOVOV 


¡¿kX SPACE *x 


k 


1060 PLAYO LD 


1061 

1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
21311 
1112 
1113 
1114 
1115 

1116 

TILDA 

1118 

1119 

1120 
1121 

1122 

1123 

1124 

1125 

1126 


PLAY2 


PLAY3 


PLAY5 


PRTSC 


VIDOUT 
RUIDO 


DEC 
JR 
LD 
LD 
CALL 
LD 
cP 
RET 
LD 
DEC 
JR 
LD 


LDIR 


HL, CON 
(HL) 

NZ, PLAY2 
A, (CON1) 
(CON), A 
BLOQUE 
A, (MAYY) 
22 

Z 

HL, CICL2 
(HL) 
NZ,PLAY3 
(BL),5 
DISPAL 
MUEVD 


A, (MFLAG) 
A 

Z, VIDOUT 
A, (NMAR) 
A 

NZ, PLAY 
HL, LEVEL 
A, (HL) 

A 

7 
NZ,PLAY5 
A 

(HL),A 
DE, 18433 
HL, 18432 
BC, 4095 


A, (OVNF) 
A 

Z, NEWLEV 
BC, 0102 
(TAM), BC 
HL, VACIO 
A, (POSOV) 
E, A 

D, 1 
SPRITE 
NEWLEV 
A,22 

16 

A 

16 

A,7 

16 

BC, (SCORE) 
$2D2B 
$2DE3 


BC,0 
A,R 
(254),A 
BC 

A,B 

C 

NZ, RUIDO 
A 
(254),A 
HL, VIDAS 
(HL) 

Z 

A, 22 


U PROGRAMAS 


1127 
1128 
C1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 

1151 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

| 1183 
1184 
| 1185 
| 1186 
1187 
1188 

1189 
1190 

1191 

1192 

1193 


MOVOV 


DESAP 


CREAOV 


RST 
RST 
RST 


ADD 
RST 


CALL 


AND 


DEC 


16 

A,O 

16 

A,31 

16 

A, (HL) 
A, 48 

16 

BC, *+0103 
HL, VACIO 
(TAM), BC 
D, 23 


A, (CBX) 


E, A 
SPRITE 
SETVID 


A,3 
AF, AF 

A, (OVNF) 
A 

Z, CREAOV 
A, (POSOV) 
E, A 

D, 1 

HL, VACIO 
DE 

BC, $0102 
(TAM), BC 
SPRITE 
DE 

E 

A,E 
SS 

Z, DESAP 
(POSOV), A 
HL, OVNI 
SPRITE 
HL, OVS1 
DE, 0VS2 
SOUND 


A 
(OVNF),A 


A,R 

RFF 

NZ 

A,:1 
(OVNF),A 
A 
(POSOV), A 
DE, +0100 
BC, *+0102 
(TAM), BC 
HL, OVNI 
SPRITE 


2475 


1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 

1212 

1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 


1255 
1256 
1257 
C1258 
1259 
1260 


OVS LD 


CALL 


TABPU DEFB 
SUPRB 


LD 
LDIR 


NZ 

E,C 

HL, VACIO 
DE, t$0102 
(TAM), DE 
SPRITE 
A,R 

3 

HL, TABPU 
B,0 

C,A 

HL, BC 

C, (HL) 

HL, (SCORE) 
HL, BC 
(SCORE), HL 
PRTSC 


10,50, 150,200 


DE, $F201 
HL, $F200 
BC, 127 
(HL),0 


; SUPRIME BARRICADAS 


LD 
LD 


BUCAN PUSH 


BUCAN1 PUSH 


SON1 EQU 
SON2 EQU 


, 


; MOVIMIENTO DISPARO BASE 
1254 ; 


MOVDB LD 
AND 
RET 
LD 
LD 
LD 


DE, $0104 
(TAM), DE 
DE, $1302 
HL, VACIO 
B, 4 

BC 

DE 

B, 4 

BC 

DE 

HL 
SPRITE 


DE 

BC 

A,8 

A, E 
E,A 
BUCAN 
HL, SON1 
DE, SON2 
SOUND 


412 
19 


A, (FLGD) 
A 

Z 

HL, $+0101 
(TAM), HL 
A,7 


126 
126 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 


LD 
LD 
LD 


CALL 


JR 


SIG3  XOR 


LD 
RET 


SIG4 LD 
PUSH 
CALL 


POP 
DEC 
LD 
CP 
JR 


CALL 


JR 


SIG5 LD 
CALL 


JR 


PUSH 
CALL 


POP 
LD 
AND 
RET 
LD 
LD 
LD 


AF, AF 

A, (PXD) 
E,A 

A, (PYD) 
D,A 
COLIB 

C, SIG4 

A 
(FLGD),A 


HL, VACIO 
DE 
SPRITE 
DE 

D 

A,D 

1 
NZ,SIG5 
OVNTES 
SIG3 
(PYD),A 
COLIB 
NC, 51G3 
DE 
DETEC 

DE 

A, (FLGD) 
A 

Z 

HL, TIRO 
BC, +t0101 
(TAM), BC 


CALL SPRITE 


RET 


, 


¿MOVI.DISP ALIENS 


, 


; EL FLAG MFLAG=1 
¡SI HA HABIDO UN 


; CRIMEN 


MUEVD LD 
AND 
RET 
LD 
LD 
LD 
LD 


MISIL LD 


A, (NDISP) 
A 

Z 

DE, +0101 
(TAM), DE 
B,A 

HL, *+F100 
A,7 

AF, AF 

A, (HL) 

L 

E, (HL) 

L 

REF 

Z, MISIL 
BC 

L 

L 

D,A 

HL 

DE 

HL, VACIO 
SPRITE 
DE 

HL 


INC D 


1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
C1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 


KAPUT 


NOSUEL 


MISIL3 


NAVE 


MUERTE 


COLIB 


BUS8 


LD 
CP 
JR 
CALL 
LD 
LD 
DEC 
LD 
JR 
CALL 
JR 
LD 
PUSH 
PUSH 
LD 
CALL 
POP 
POP 
INC 
INC 
POP 
DJNZ 
RET 


INC 


INC 


RET 


INC 
DJNZ 
scr 


POP 


A,D 

23 

NZ, NOSUEL 
NAVE 
(BL), $FF 
A, (NDISP) 
A 
(NDISP),A 
MISIL3 
COLIB 

NC, KAPUT 
(HL),D 

HL 

DE 

HL, TIRO 
SPRITE 

DE 


BC 
MISIL 


A, (CBX) 


(MFLAG),A 


A,D 
19 
[e 


GETDIR 
B,8 


A,R 
*x11100111 
(HL) 
(HL),A 

H 

BUS8 


HL 
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1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 


1421 
1422 


1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 


1454 ; 
DISPAL LD A, (LEVEL) 


1455 
1456 
1457 
1458 
1459 
1460 
1461 


SALIR 


SETUPB 


SETB 


SET2 


PRINTB 


, 


RET 

scF 

RET 

LD  HóL,*F200 
LD  DE,+*F201 
LD  BC,127 
LD (HL),0 
LDIR 

LD  B,16 

LD  HL,+*F202 
LD" DH 

LD  E,JL 

INC E 

PUSH: BC 

LD  BC,3 

LD (HL), 1 
LDIR 

POP BC 

LD  A,L 

ADD A,5 

LD  L,A 
DJNZ SETB 

LD  A,5 

EX  —AF,AF 


LD  DE,+*0104 
LD (TAM), DE 


LP  B,4 
LD  DE,+*+1302 


CALL PRINTB 
LD 4,8 
ADD A,E 
LD EA 
DJNZ SET2 


PUSH BC 
PUSH DE 

LD  HL,B1 
PUSH DE 
CALL SPRITE 
POP DE 


PUSH HL 
CALL SPRITE 


PUSH DE 
CALL SPRITE 
POP DE 

LD  HóHL,B3 
INC D 

CALL SPRITE 
POP DE 

POP BC 


; DISPARO DE ALIENS 


INC A 


1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
C1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 


1526 
1527 


1528 


LD  A,(MAYY) 
cp 21 
RET Z 
LD  A,R 
AND 7 
LD  C,A 
LD  A,R 
AND 1 
ADD A,C 
LD  C,jA 
ADD A,C 
ADD A,C 
LD  H,8FO 
LD  L,A 
LD  B,4 
BUSC LD  D,(HL) 
INC L 
LD  E,(HL) 
INC L 
LD  A,(HL) 
AND 128 
JR  NZ,ENC 
LD  DE,25 
ADD HL,DE 
DJNZ BUSC 
RET 
ENC LD  HL,+*F100 
PAZ LD  A,(HL) 
CP. REF 
JR  Z,ENC2 
INC L 
INC L 
JR PAZ 
ENC2 INC D 
INC D 
LD (HL),D 
LD  A,R 
AND 1 
ADD A,E 
INC L 
LD (HL),A 
LD  E,JA 
LQ  HL,TIRO 
LD A,7 
EX  AF,AF 
LD  BC,+*0101 
LD (TAM), BC 
CALL SPRITE 
LD  HBL,NDISP 
INC — (HL) 
RET 
TABDIS EQU +*F100 
; DETECCION DE 
; COLISIONES 
DETEC LD  A,(FLGD) 
AND A 
RET 2 
LD  DE,+*+0202 
LD (TAM), DE 
LD HL, TABM 
LD A, (NMAR) 
LD. B,A 
LD  A,(PXD) 
LD » 
LD  A,(PYD) 


1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 


1579 
1580 


1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 


COLIS 
COLIS1 


SsIT1 


SIT 


ESP 


NOCOM 


ESP1 
ESP2 
SOUND 
MUEVEB 


INC 


INC 


DEC 


PUSH 
CALL 


POP 


DEC 


D,A 
BC 

B, (HL) 
L 

C, (HL) 
L 

A, (HL) 
L 

128 

Z, COLIS1 
A,B 


|] 


L 

(HL)>,0 
HL, EXPLOS 
D,B 

E,C 

DE 

SPRITE 
HL, ESP1 
DE, ESP2 
SOUND 

DE 

BC, $A000 
BC 

A,B 

Cc 

NZ, ESP 
HL, VACIO 
SPRITE 
HL, (SCORE) 
BC, 10 

HL, BC 
(SCORE), HL 
PRTSC 

HL, NMAR 
(HL) 

A 
(FLGD),A 


HO3B5 
DE, $$0103 
(TAM), DE 
D, 23 

A, (CBX) 
E,A 

A,7 


1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 


1632 
1633 


1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
C1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 


IZQ 


DER 


CONT 


BORRAN 


DISP 


BLOQUE 


CONTI 


AF, AF 
HL, VACIO 
A, (223) 
1 

Z, DER 
E 
Z,12Q 
16 
Z,DISP 
A, 87F 
A, (254) 
4 
Z,DISP 
C, 254 
B,C 

B, (C) 
A, 2 


A,E 

29 

Z 

BORRAN 

E 

HL, GRAFB 
A, E 
(CBX),A 
SPRITE 


DE 
SPRITE 
DE 


A, (FLGD) 
A 

VA 

A, (CBX) 
A 
(PXD),A 
A, 22 
(PYD),A 
A,1 
(FLGD),A 


A, (MAYY) 
yr 

NZ, CONTI 
A, (INCY) 
A 

Z, SUPRB 
MUEVEM 
HL, 3314 
DE, 1 
SOUND 

A, (INCY) 
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1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
.1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 


BAJA 


NEWSET 


MUEVEM 


BCL1 


BCL2 


1 
Z,NEWSET 
A, (MAYX) 
30 

Z, BAJA 
A, (MENX) 
A 

Z,BAJA 


A, (INCX) 
(OLDS),A 
A 
(INCX),A 
A 
(INCY),A 


A, (OLDS), 


(INCX),A 
A 
(INCY),A 


A 
(MAYX),A 
(MAYY), A 
A 
(MENX),A 
DE, +0202 


Z, MUERT 
HL, VACIO 
DE 
SPRITE 


a 


APP rus>> 
e 


5 
> 


1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
174€ 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
C1774 
1775 
1776 
ER 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 


1790 
1791 


1792 
1793 
1794 
1795 
1796 


NMAY 


NOMEN 


NOMAYY 


CONT2 


MUERT2 


MUERT 


SACAM 


BUCLE1 


BUCLE 


INC 


PUSH 


PUSH 
INC 
INC 
INC 


PUSH 


A, (MENX) 
E 

C, NOMEN 
A,E 
(MENX),A 
A, (MAYY) 
D 

NC, NOMAYY 
A,D 
(MAYY),A 
A,C 

32 
(HL),A 

L 

HL 

127 

C,A 

B,0 

HL, GRAFM 
HL, BC 
SPRITE 
HL 


DE 
MUERT2 


DE, $0202 
(TAM), DE 
B, 4 

A, 2 

AF, AF 
HL, TABM 
BC 

B,9 


BC 

D, (HL) 
L 

E, (HL) 
L 

A, (HL) 
L 

B,A 
HL 

128 
Z,RIP 
HL, GRAFM 
A,B 


1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860. 
1861 
1862 
1863 


RIP 


, 


127 
B,0 
C,A 
HL, BC 
SPRITE 
HL 

BC 
BUCLE 
BC 

AF, AF 
A 

AF, AF 
BUCLE1 


¡RUTINA DE SPRITES 
; HL=DIR.GRAFICO 

; DE=COORDS 
; D=CORRDY 
; E=COORDX 


SPRITE 
PON2 


PON4 


PON3 


GETDIR 


DE, HL 
BC, (TAM) ; B=T 
BC 

HL 
GETDIR 
B,8 

HL 

A, (DE) 
(HL),A 
H 

DE 


NZ, PON4 
HL 
BC 


1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 


1878 ; 


1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1355 
1897 
1898 
1899 
1900 
1901 
C1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 


CREAT 


BUC2 


BUC1 


TABM 
GRAFM 


PUSH 
EXX 
POP 
LD 
AND 
SRA 
SRA 
SRA 
OR 
LD 
EXX 
RET 


HL 


TABLA MARCIANOS 


XOR 


RET 
EQU 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


A, (LEVEL) 
A, 11 


(INCX),A 
A 
(INCY),A 


$FO0O 


8,4,2,7 

15,25, 49,121 
16,32,64,224 
240, 152,140, 15 
127,63, 48,31 
31,32,16,8 
254, 252,12, 248 
248, 4,8,16 
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1931 ; 1991 DEFR 255,255,255,25 5 
1932 ; SEGUNDO GRAFICO 1992 DEFB 255,255,255,25 5 
1933 ; 1993 DEFB 255,255,255,25 5 
1934 DEFB 2,4,2,7 1994 DEFB 255,255,255,25 5 
1935 DEFB 15,25,49,121 1995 DEFB 128,192,224,24 y 
1936 DEFB 64,32,64,224 1996 DEFB 248,252,254,25 5 
1937 DEFB 240,152,140,15 8 1997 B2  DEFB 8FF,*FF,8FF,8F F 
1938 DEFB 127,59,60, 31 1998 DEFB 8FF, 8FF, 8FF, 8F F 
1939 DEFB 31,32,64,128 1999 DEFB 8FF, 8FF, 8FF, 8F F 
1940 DEFB 254,220, 60, 248 2000 DEFB 8FF, 8FF, 8FF, 8F F 
1941 DEFB 248,4,2,1 2001 DEFB 8FF, 8FF, 8FF, 8F F 
1942 ; 2002 DEFB 8FF,8FF, 8FF, 8F 
1943 ; SEGUNDO MARCIANO 2003 DEFB 8FF, 8FF, 8FF, 8F 
1944 ; 2004 DEFB 8FF,8FF, $FF, 8F 
1945 SEGMAR DEFB 0,15,31,63 2005 B3  DEFB 255,254,252,24 
1946 DEFB 127,99,127, 127 2006 DEFB 240,224, 192,19 
(47 DEFB 0,240,248, 252 c2007 DEFW 0, 0,0,0 
DEFB 254, 198,254, 25 4 2008 DEFW 0,0,0,0 
DEFB 127, 115,50, 24 2009 DEFB 255, 127,63, 31 
1950 DEFB 12,6,0,0 2010 DEFB 15,7,3,3 
1951 DEFB 254,206, 76, 24 2011 OVNI DEFB 1,3,11,27 
1952 DEFB 48,96,0,0 2012 DEFB 12,23,35,96 
1953 ; 2013 DEFB 128, 192,208 
1954 ; SEGUNDA FASE DE MOV 2014 DEFB 152,48,232,196, 
td 2015 DEFB 6 
1956 DEFB 0,15,31,63 2016 : 
1957 DEFB 127,99,127,127 2017 ; VARIBLES 
1958 DEFB 0,240,248, 252 2018 ; DEL PROGRAMA 
1959 DEFB 254, 198,254, 25 4 2019; 
ii AREA 1073 10%) YA LO 2020 POSOV DEFB O ;POS OVNI 
re pa e 2021 OVNF  DEFB O ;FLAG OVNI 
de E A O 2022 MFLAG DEFB O ; MUERTE 
bar: E EA 10,070 2023 NDISP DEFB O ;NO.DISP 
zo 2024 SCORE DEFW O ¡PUNTOS 
SI BDEOO. PE-ACRA 2025 FLGD  DEFB O ¡FLAG DISP 
19 a 2026 PYD  DEFB O ;POS.DISP 
A PA do 2027 PXD  DEFB O ;POS DISP 
sl io AENa PRAGA 08 2028 CBX  DEFB O ;POS.BASE 
1969 DEFB 24,60,255,255 2020 Glda. Me 
ee DE 2030 MAYX  DEFB O ;MAYOR COORD 
slo DO 0 EN REA 2031 MENX  DEFB O ¡MENOR COORD 
qe PRA ERROR, DO 2032 MAYY  DEFB O ¡MAYOR COORD 
1973 DEFB 0, 120,68, 66 poa 
1974 DEFB 66,68,120,0 2034 . ORG TAM 
1975 EXPLOS DEFB 0,59,106,85 2035 TX _DEFB O ; TAM.X.SPRI 
vid PET MA 2036 TY DEFB O ;TAM.Y.SPRIT 
3 PO 49+ +89, 98 2037 NMAR  DEFB O ; NO.MARC 
Años poa q10.09,109, 94 2038 LEVEL DEFB 1 ; NIVEL DIFI 
qn IA AAA DES 2039 INCY DEFB O ; INC DESP. 
Se eya 97180, 9 2040 INCX  DEFB O ; INC DESP 
1981 DEFB 172,84,234,86 204100 O 
1982 DEFB 136,4,0,0 204 COM. NÓ 
1983 TIRO  DEFB 24,24,24,24,24 2649 CICLOS DIFE Ú 
1984 DEFB 24,24,24 2 cra TS 
1985 VACIO DEFW 0,0,0,0,0 erdé VU A 
1986 DEFW 0,0,0,0,0 
1987 DEFW 0,0,0,0,0 
1988 DEFW O 
1989 B1  DEFB 1,3,7,15 


1990 DEFB 31,63,127,255 


ara Amstrad objetivo del juego consiste en adivinar 


2 Programa: Master Number MASTER MIND numérico para AMSTRAD. El 
Y 


Como prometimos 


una secuencia de números que piensa el 
en tomos anteriores, ordenador, antes de que se nos acaben 


2 4 
aparece a continuación una versión del las oportunidades. 
10 REM AMRSSSIOIOIORIOOOIOIOORORIORRORORORDIONÓO 
20 REM xxx MASTER NUMBER Ak 
30 REM Xxx Un programa realizado X*Xx*xx 
40 REM x*xxx Por XA 
50 REM *X*x*x Carlos A. Maria Morin *xxx 
60 REM Xxx Ak 
70 REM xxx (C> Ediciones kk 
80 REM xxx Siglo Cultural 1987 xxx 
90 REM ARSSRSORSIOROROIORIOROOIORRIRSROIOIRRRROOEE 
100 REM E 
110 REM AddidSRSRSISlSSEjSRSSlOSIESSSElOSEjSlSlElOjOl”lOjolSjOjOjEIOK 
120 REM *xx* INICIALIZACION Y PRESENTACION x*x*x 
130 REM AdaSaSSSSS E lElSlSjSSE lll” ESOO OK 
140 REM 
150 MODE O 
160 LOCATE 1,13 
170 PRIMT >” MASTER NUMBER” 
180 FOR ww=1 TO 3000 
190 NEXT 
200 MODE 2 
210 LOCATE 33,1 
220 PRINT'MASTERNUMBER” 
230 INPUT "Numero de intentos:”;numint 
240 INPUT "Juego de carac. numericos [4..9]:”;juego 


250 aleal=INT(RNDxjuego)> 


260 


alea2=INT(RNDXxjuego) 


270 alea3=INT(RNDxjuego> 


280 
290 
300 
310 
320 


alea4=INT(RNDXxjuego) 

FOR bucle=1 TO numint 

PRINT > 

PRINT” INTENTO NUMERO”; bucle 
INPUT ”'TU TURNO!”;tus 


330 IF tus$=”"” THEN 320 

340 IF LEN(tus$s><4 OR LEN(tu$>»>4 THEN 320 
350 FOR bu=1 TO 4 

360 tes$=MID$(tus$, bu, 1) 

370 IF tes$<”0'” OR tes$>"”9"” THEN 320 

380 NEXT 

390 tu=VAL(tus> 

400 REM 

410 REM AMRSSRSSIO SOS SS OESjOSjdEjdlSlNEjO”SlO ESE” lOj”lOjOJOK 
420 REM x*xx*x*k TRATAMIENTO DE VARIABLES Y x*xxxx 
430 REM *XxxXxxxk* DISGREGACION NUMERICA Aókoxkxkxkxk 
440 REM ARSSORSIORSORORRORORRORREORRESORDREdOSOSlOlPSlPOEJOK 
450 REM 

460 in=0 

470 suma=0 

480 kill=0 

490 caracl=aleal 

500 carac2=alea2 

510 carac3=alea3 

520 caracá=alea4 


530 
540 
550 
560 


disl=INT(tu/1000)”— 7 
helpl=tu-dis1x1000 
dis2=INT(help1/100> 
help2=help1-dis2x100 
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570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
709 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
:050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


dis3=INT(help2/10)> 
dis4=INT(help2-dis3x10) 


REM 


REM AMS OOOO OOOO OOO OOOO OOO OOOO OOOO OK 
REM * SI ES IGUAL: SUMA UNA AL CONTADOR x* 
REM AMSRSSlS SO lSjSS ISS lEOjOlSElSlO OO SjOSEjOjOS OO OIOJOJOKOk 


REM 


IF disi=caracl THEN GOSUB 1070:GOSUB 860:GOSUB 1110 
IF dis2=carac2 THEN GOSUB 1140:GOSUB 860:GOSUB 1180 
IF dis3=carac3 THEN GOSUB 1210:GOSUB 860: GOSUB 1250 
IF dis4=carac4 THEN GOSUB 1280: GOSUB 860: GOSUB 1320 


REM 


REM AMSSO SOI SRSIO OOOO OOOO EOS OOO OOOO O JOK 
REM XXXXX SI NO SON IGUALES TESEAR x*xxXxxXkxk 
REM xXxkxkxkxxk SI ESTAN MAL COLOCADAS Adjolokokxk 
REM ASSSRS OSOS ISSO SSlS lll” 


REM 
change=disl 
GOSUB 920 
change=dis2 
GOSUB 920 
change=dis3 
GOSUB 920 
change=dis4 
GOSUB 920 
os$="" 
GOSUB 1410 
NEXT 

GOTO 1590 
kill=ki11+1 


change=10+ki11 


kill=ki11+1 
reset=10+ki11 
RETURN 

REM 


REM ASS S SOS jOjSlSlS OJOS jol?S Old Ojo jok 
REM AMXMRkkx SE COMPARAN CIFRAS AMSMOOOOK 
REM ARGOS SSSSSlS ES” lll K 


REM 


IF change=caracl1 THEN kill=k111+1: 
IF change=carac2 THEN kill=ki11+1: 
IF change=caracS THEN kill=ki11+1: 
IF change=caracúé THEN kill=ki11+1: 


RETURN 
REM 


in=in+1: 
in=in+1: 
in=in+1: 
in=in+1: 


REM SS SOS SOS lol lll JO JOK: 
REM xXXx* SUBRUTINAS SUBORDINADAS Aókoookxk 
REM XxxXxxx*xx*X PROGRAMA PRINCIPAL Add KK 
REM SRSSSSS SS SOS” lSS OSOS JOJOK 


REM 
suma=suma+1 
change=disl 
reset=caracl 
RETURN 
disl=change 
caracl=reset 
RETURN 
suma=suma+1 
change=dis2 
reset=carac2 
RETURN 
dis2=change 
carac2=reset 
RETURN 
suma=suma+1 
change=dis3 
reset=carac3 


carac1=10+ki11 
carac1=10+ki11 
carac1=10+ki11 
carac1=10+ki11 


1240 RETURN 
1250 dis3=change 
1260 carac3=reset 
1270 RETURN 
1280 suma=suma+1 
1290 change=dis4 
1300 reset=caracé 
1310 RETURN 
1320 dis4=change 
1330 carac4=reset 
1340 RETURN 
1350 REM 
1360 REM AMSOlOOSalOjOEO Ojo jOlOla OOO lOOlajOOlOjOOlOIOlOlOjOOIOJoOK 
1370 REM *xxxxk MENSAJES DE LOS ACIERTOS xxxkoxkxk 
1380 REM *xxxxx*x PLENOS Y MAL COLOCADOS addoidalokk 
1390 REM Ad+sSRSSSO OSOS SOS SO SSOJO OOO jOOlEOjOOOlOdlolOlOJOK 
1400 REM 
1410 PRINT”ACIERTOS PLENOS: ”; 
1420 FOR caracl1=1 TO suma 
1430 os$t=0s$+”x*" 
1440 NEXT 
1450 PRINT os$ 
1460 ass$=""” 
1470 PRINT"CIFRAS CORRECTAS MAL COLOCADAS:”; 
1480 FOR caracl=1 TO_in 
1490 as$t=ass$+”-” 
1500 NEXT 
1510 PRINT as$ 
1520 IF suma=4 THEN GOSUB 1760:GOTO 1700 
1530 RETURN 
1540 REM 
1550 REM Ad+MRSRSSOiSSjSSNO EOS OlO la” lala lOdlolajOjOIolo kk 
1560 REM *x* MENSAJES DE ACIERTO DE NUMERO *Xx 
1570 REM addidalOlSldSlOOdEldOjSjolOd lala jojojdlala jajaja lalalajajojoOlolok 
1580 REM 
1590 FOR ret=1 TO 200 
1600 NEXT 
1610 FOR ww=1 TO 25 
1620 PRINT 
1630 NEXT 
1640 PRINT SPACE$(18)>;”Espero que la proxima vez tengas mas ingenio.” 
1650 PRINT 
1660 PRINT SPACE$(26>;”El numero era el”;aleal;¡alea2;alea3;aleals 
1670 FOR ww=1 TO 10 
1680 PRINT 
1690 NEXT 
1700 PRINT SPACES$S(22);”]JQuieres intentarlo de nuevo? (S/N>” 
1710 as=UPPERS(INKEYS)> 
1720 IF as$<>”S” AND a$<>”"N” THEN 1710 
1730 IF a$="”S'” THEN 200 a 
1740 PRINT"ADIOS ABUR BYE....” 
1750 END 
1760 PRINT 
1770 PRINT”LO HAS CONSEGUIDO” 
1780 PRINT”"Y EN TAN SOLO”; bucle;” INTENTOS.....”; 
1790 FOR ww=1 TO 2000: NEXT 
1800 PRINT”!!!QUE FIERA!!!” 
1810 PRINT ; 
Á 1820 RETURN 


qm Utilización 


NDEPENDIENTEMENTE 
de la finalidad a la 
que se destinen los 
datos que se están 
procesando, la pan- 
talla puede ser utili- 
zada de varias formas 
en cuanto a su forma- 
to y a la distribución de los campos que 
en ella aparecen: 

— Modo continuo. Es el modo más di- 
recto de utilización y en el que entra el 
ordenador, usualmente, de un modo pri- 
mario cuando comienza su funciona- 
miento. Consiste, sencillamente, en que 
van apareciendo en la pantalla los da- 
tos, mensajes, preguntas, etc., en sucesi- 
vas líneas y dejando, a lo sumo, algunas 
líneas o espacios en blanco para mayor 
claridad de los textos. Excepto que se 
prevea lo contrario, cuando se acaba la 
pantalla se produce un desplazamiento 
hacia arriba de todo el contenido de la 
pantalla («roll up»), perdiéndose la pri- 
mera línea que teníamos escrita y dejan- 
do una línea en blanco al final, donde se 
escribe la nueva línea de texto. 

— Modo «patrón cerrado» o «de pan- 
talla completa». Por este procedimiento 
se diseña la pantalla como una unidad 
distribuyendo sus campos del modo más 
adecuado a la utilidad a la que se des- 
tinan y se presenta de una vez al opera- 
dor. Hay que disponer del software espe- 
cífico para realizar esta tarea, pero es 
enormemente cómodo disponer de toda 
la pantalla para presentar los datos ne- 
cesarios. Por otro lado, si se hacen pre- 
guntas o se solicitan datos, saber la ubi- 
cación exacta (estable) de la respuesta 
dentro de la pantalla es muy útil. Se utili- 
za este tipo de pantalla cuando se va a 
hacer uso de los diversos atributos dispo- 
nibles en el terminal (de los que hablare- 
mos más adelante): vídeo inverso, par- 
padeo, sobreintensidad, etc. 


TECNICAS DE ANALISIS 


TERMINALES DE PANTALLA (II) 


— Ventanas. Se llaman ventanas a 
unas regiones de la pantalla que se 
aíslan del resto mediante un recuadro y 
se tratan como una pequeña pantalla 
con independencia de lo que suceda en 
las restantes ventanas (si las hay) o del 
resto de la pantalla. Dependiendo del 
tipo de terminal de que se trate y del soft- 
ware disponible, podrán «abrirse» en la 
pantalla más o menos ventanas. Natural- 
mente, puede suceder que el programa 
con el que se esté operando permita la 
utilización de cada ventana o de algu- 
na(s) de ella(s) en modo continuo (con 
roll up) o en modo «pantalla completa». 


Distribución de los campos 


Es usual distribuir la pantalla en tres re- 
giones: cabecera, pie y centro o núcleo 
del diseño. 

— En la cabecera se suelen poner in- 
formaciones generales sobre el proceso 
que se está realizando, la designación 
de la propia pantalla en que se opera, 
la fecha, etc. Además, es usual incluir en 
la cabecera informaciones «de ayuda»: 
códigos a utilizar, comandos que se pue- 
den usar en la presente fase del proce- 
so, etc.; a veces también datos sobre los 
valores permisibles en los diferentes 
campos de la pantalla, en general o se- 
gún la situación del proceso. 

— Al pie de la pantalla es normal in- 
cluir los diálogos de gobierno del proce- 
so y los mensajes de error que se van pro- 
duciendo. En ocasiones es en este área 
donde se incluyen las informaciones ne- 
cesarias al usuario sobre el tiempo o es- 
pacio que resta para concluir la activi- 
dad en curso o sobre el resto del proce- 
SO. 

— En el espacio central de la pantalla 
(al que se suele dedicar del 60 al 80 
por ciento de la superficie total disponi- 
ble) se incluyen las informaciones bási- 
cas del proceso: texto que se está pre- 
parando en un procesador de textos, 


cuadro de datos de la hoja electrónica, 
etc. Naturalmente esta distribución des- 
crita se refiere al formato de pantalla 
completa, aunque en ocasiones la zona 
central está preparada para que vaya 
haciendo «roll up» mientras que el pie y 
la cabecera se mantienen fijos (o se ac- 
tualizan campo a campo, pero sin des- 
plazamiento). 

Por otro lado, cuando se utilizan venta- 
nas, es usual dedicar una de ellas al con- 
trol del proceso, otra a la información de 
errores, etc. 


Pantalla de menú de un programa de 
gráficos. 


Ea 


O Opciones de presentación 


Para la fácil identificación de los dife- 
rentes campos, realce de algunos, etc., 
se utilizan una serie de características de 
presentación visual de que suelen dispo- 
ner las pantallas de los terminales. Estas 
características u opciones se suelen lla- 
mar «atributos» de la presentación. Los 
más usuales son: 

— Vídeo inverso. Consiste en cambiar 
los atributos de fondo y texto en una 
zona; si la pantalla en su conjunto está 
con fondo blanco y letras negras, la zona 
de vídeo inverso aparece con fondo ne- 
gro y letras blancas, y viceversa. 

— Subrayado. En la pantalla del orde- 
nador se puede subrayar un texto, como 
en cualquier sistema de escritura. 

— Fondo. Se puede preparar una zona 
con un fondo de otro nivel luminoso o co- 
lor para realce de lo que se escribe so- 
bre ella. 


casor hacia abajo a el ratón con la barra de desplazanenta 
vertical) para verlo todo. Fíjese en los diferentes tipos. 


Editor de textos en pantalla completa con 
tres zonos (cabecera, pie y cuerpo 
central). 


Pantalla con cuatro ventanas de un 
intérprete de BASIC (en cada ventana se 
realiza un «roll up» independiente). 


— Sobreintensidad. Normalmente 
también es posible escribir algunos ca- 
racteres (o todos los de una zona) con 
mayor intensidad luminosa. 

— Parpadeo. A veces se pueden defi- 
nir algunos caracteres con esta caracte- 
rística, para llamar la atención del usua- 
rio sobre ellos. 

— No presentación. Cuando «un cam- 
po (de clave o control) es confidencial, 
no conviene que aparezca visible en la 
pantalla: a medida que el usuario va es- 
cribiendo los caracteres de ese campo, 
el sistema los va recibiendo, pero en la 
pantalla no aparece nada escrito. 


Operaciones 
£ de entrada y 
salida 


NA de las cuestiones 
más importantes de 
la programación de 
ordenadores es el ac- 
ceso a los dispositi- 
vos periféricos. Un 
programa que sólo 
utilizara cálculos, 
pero no contuviera instrucciones de en- 
trada y salida, no serviria de mucho, pues 
no podríamos pasarle datos ni enterar- 
nos del resultado de las operaciones. 

Las operaciones de entrada y salida 
más frecuentes en los ordenadores elec- 
trónicos pertenecen a los siguientes ti- 
pos: 

— Entrada y salida de datos por la 
consola. 

— Manejo de la pantalla. 

— Impresora. 

— Ficheros. 

— Generación de música. 

— Gráficos. 

— Comunicaciones de varios ordena- 
dores entre sí. 

En este capítulo y en los sucesivos ve- 
remos con más detalle algunas de estas 
operaciones. 


¡m Entrada y dalida de datos por 
== la consola 


La consola (o la estación terminal, 
como también se llama) es uno de los 
elementos fundamentales del ordenador 
y consta de dos partes: 

— El teclado. 

— La pantalla. 


TECNICAS 
DE PROGRAMACION 


El teclado es una unidad de entrada de 
datos, en general muy semejante a una 
máquina de escribir eléctrica. Está co- 
nectado al ordenador mediante un ca- 
ble y cada vez que presionamos una te- 
cla envía por dicho cable varias señales, 
de las que el sistema operativo o el BIOS 
(siglas de «Basic Input Output System», o 
«sistema básico de control de la entrada 
y la salida») puede deducir la tecla que 
se ha presionado y convertir esta infor- 
mación en la representación interna del 
carácter correspondiente. Desde nuestro 
punto de vista de programadores de len- 
guajes de alto nivel, en general no ten- 
dremos que preocuparnos de la conver- 
sión de las señales eléctricas recibidas 
desde el teclado en los caracteres 
correspondientes. Bastará con tratar di- 
rectamente con éstos. 

La pantalla es, primordialmente, una 
unidad de salida de datos, y para todos 
los efectos puede considerarse com:- 
puesta por una serie de líneas y colum- 
nas que forman una cuadrícula, en cada 
uno de cuyos cuadros puede colocarse 
un solo carácter. El número de líneas y 
columnas de las pantallas varía según el 
ordenador, y a veces en una misma má- 
quina es posible cambiar dichos núme- 
ros y trabajar con varios formatos de pan- 
talla. Una de las disposiciones más comu- 
nes es la de 25 líneas y 40 u 80 columnas. 

El teclado no puede convertirse nunca 
en unidad de salida de datos, pero la 
pantalla sí puede utilizarse a veces como 
unidad de entrada, si se la dota de dis- 
positivos especiales, como lápiz electró- 
nico, detector de la posición del dedo, 
etc. En este curso de técnicas de progra- 
mación no haremos más que mencionar 
esta posibilidad. 

Las operaciones fundamentales que 
pueden realizarse con la consola son las 
siguientes: 


— Lectura de una línea desde el tecla- 
do. 

— Escritura de una línea en la panta- 
la. 

— Lectura de un carácter desde el te- 
clado. 

— Escritura de uno o varios caracteres 
(que no forman linea) en la pantalla. 

Los dos primeros son mas basicos y los 
estudiaremos en primer lugar. 


m Lectura de una línea desde el 
teclado 


Es frecuente (y lo hemos visto varias ve- 
ces en los ejemplos de programas pro- 
puestos en los capítulos anteriores) que 
deseemos introducir datos en el ordena- 
dor, para que nuestros programas traba- 
jen con ellos. La forma mas sencilla de 
conseguirlo es proporcionárselos a tra- 
vés del teclado, escribiendo una línea 
de caracteres, que terminará siempre 
con el carácter de salto de línea, que a 
veces se llama ENTER. Lo normal es que, 
al mismo tiempo que escribimos los ca- 
racteres de esta línea, podamos ver 
cómo van apareciendo en la pantalla. 

En el lenguaje BASIC la instrucción que 
permite leer una línea de la pantalla co- 
mienza por la palabra reservada INPUT. 
En su forma más sencilla, esta instrucción 
tiene el siguiente aspecto: 


INPUT variable 


que nos dice que el dato leído desde el 
teclado debe ser asignado a la variable 
indicada. El funcionamiento de la instruc- 
ción INPUT es, por tanto, el siguiente: 


1. El teclado queda disponible para 
escribir. 

2. La persona sentada ante la con- 
sola teclea el dato pedido. 

3. Eldato es convertido al tipo inter- 
no de la variable. 

4. El resultado de la conversión es 
asignado a la variable. 


Veamos, como ejemplo, el programa 
siguiente: 

Este programa realiza las siguientes 
operaciones: 

1. La primera instrucción lee un dato, 
lo convierte a la representación interna 
apropiada a la variable x (un número 


10 INPUT X 
20 INPUT XZ 
30 INPUT X$ 
40 PRINT X 
50 PRINT XZ 
60 PRINT X$ 


real en punto flotante) y se lo asigna a la 
variable x. 

2. Lasegunda instrucción lee un dato, 
lo convierte a la representación interna 
apropiada a la variable x% (un número 
entero) y se lo asigna a la variable x%. 

3. La tercera instrucción lee un dato, 
lo convierte a la representación interna 
apropiada a la variable x$ (una cadena 
de caracteres; por tanto, no hay conver- 
sión) y se lo asigna a la variable xS. 

4. Las restantes instrucciones escri- 
ben en la pantalla los valores respectivos 
de x, x% y x$, para que podamos ver los 
valores que recibieron dichas variables. 

Veamos cómo se ejecuta el programa 
anterior: 


Observaremos que, cuando se ejecuta 
la instrucción INPUT, el intérprete de BA- 
SIC escribe un signo de interrogación 
para indicarnos que el programa está es- 
perando datos. Nosotros responderemos 
en todos los casos tecleando los tres ca- 
racteres «2.5» y presionando la tecla EN- 
TER. 

Del análisis de los resultados podemos 
deducir lo siguiente: 

1. Como la variable x tiene tipo inter- 
no real, el valor asignado fue el número 
2.5. Con este número podríamos ahora 
hacer operaciones aritméticas, como, 
por ejemplo, sumarle una unidad. 

2. Como la variable x% tiene tipo in- 
terno entero, el intérprete ha convertido 


bl TECNICAS DE PROGRAMACIÓN 


el valor 2.5, redondeándolo al entero 
más próximo, por lo que a la variable se 
le ha asignado un valor igual a 3. Con 
este número podemos también realizar 
operaciones aritméticas. 

3. Como la variable x$ tiene tipo lite- 
ral, no se ha realizado ninguna conver- 
sión y el valor asignado ha sido la cade- 
na de tres caracteres «2.5». Con este va- 
lor no pueden realizarse operaciones arit- 
méticas, pues no se trata de un número, 
sino de una cadena de caracteres. 

¿Qué sucederá si, en lugar de propor- 
cionar un solo dato cuando se nos pide, 
respondemos con dos? Veamos un ejem- 
plo: 


Veamos cómo se interpretan estos re- 
sultados: 

1. Al convertir 2.5 3 al tipo real, que 
exige la variable x, el intérprete ha su- 
puesto que los espacios en blanco den- 
tro del número no tenían importancia. Por 
tanto, el valor asignado después de la 
conversión resultó ser 2.53. 

2. Alconvertir 2.5 3 al tipo entero, que 
exige la variable x%, el intérprete ha 
convertido primero al tipo real, lo que da 
el mismo resultado que en el caso ante- 
rior (2.53) y después ha redondeado este 
número al entero más próximo, por lo 
que el valor asignado a x% fue 3. 

3. Como la variable x$ tiene tipo lite- 
ral, no se ha realizado ninguna conver- 
sión y el valor asignado ha sido la cade- 
na de cinco caracteres que hemos intro- 
ducido («2.5 3»). Obsérvese que el espa- 
cio en blanco cuenta como un carácter 
y aparece dentro del valor de x$ en la 
misma posición en que lo escribimos en 
el teclado. 

¿Qué ocurre si a una variable numéri- 
ca le asignamos algo que no se puede 
convertir en un número? Veámoslo: 

1. El intérprete no nos deja responder 
a la petición de datos para la variable x 


RUN 
? ab 

Redo from start 
22.5 

? ab 

Redo from start 
? 2.5 

7? a 


2 
3 
ab 


con la cadena de caracteres «ab», pues 
esta cadena no se puede convertir en un 
valor numérico. Por tanto, responde con 
una mensaje de error («redo from start», 
que quiere decir «vuélvalo a hacer des- 
de el principio») y pide de nuevo un va- 
lor para la variable x. Esta vez le damos 
uno válido (2.5). 

2. El intérprete no nos deja responder 
a la petición de datos para la variable 
x% con la cadena de caracteres «ab», 
pues esta cadena no se puede convertir 
en un valor numérico. Por tanto, respon- 
de con el mismo mensaje de error y pide 
de nuevo un valor para la variable x%. 
Esta vez le damos uno válido (2.5), que 
será convertido a entero, redondeándo- 
[Mo A 

3. No hay ningún problema para asig- 
narle a x$ un valor que no se puede con- 
vertir en numérico, pues x$ tiene tipo lite- 
ral. Por tanto, en este caso el intérprete 
acepta el valor que le hemos dado 
(«ab»). 

Vamos a comprobar que con los valo- 
res numéricos asignados a las variables 
literales no se pueden realizar operacio- 
nes. Es decir: que 2.5 asignado a la va- 
riable x es distinto de 2.5 asignado a la 
variable x$. Para ello modificaremos 
nuestro programa de la siguiente forma: 


donde lo único que ha cambiado es que, 
en lugar de escribir los valores de las va- 
riables, escribimos el resultado de sumar 
una unidad a cada una de ellas. Veamos 
cómo se ejecuta este nuevo programa: 


Se. 
4 
Type mismatch in 60 


Veamos lo que quiere decir este resul- 
tado: 

1. El intérprete ha asignado el valor 
2.5 ala variable x, como en los casos an- 


teriores. Por tanto, al escribir x+1, el valor 
obtenido sera 3.5. 


2. El intérprete ha asignado el valor 3 
a la variable x%, como en los casos an- 
teriores. Por tanto, al escribir x%+1, el va- 
lor obtenido será 4. 


3. El intérprete ha asignado el valor li- 
teral «2.5» a la variable x%, como en los 
casos anteriores. Por tanto, al intentar es- 
cribir x$+1, obtendremos un mensaje de 
error («type mismatch in 60», que signifi- 
ca «tipo incorrecto en la línea 60») y la 
operación no se realiza. 


LOGO 


RECURSIVIDAD 


A sabemos que al de- 
finir un procedimien- 
to para enseñarle a 
la tortuga a hacer co- 
sas nuevas no sólo 
podemos utilizar co- 
mandos, sino que 
también se pueden 
poner los nombres de otros procedimien- 
tos. Pues bien, se dice que un procedi- 
miento es recursivo cuando se usa a sí 
mismo, es decir, que dentro de su defini- 
ción escribimos su propio nombre. De 
esta manera, repetiremos muchas veces 
el conjunto de órdenes que componen 
ese procedimiento. 

Por ejemplo, supongamos que quisié- 
ramos tener un procedimiento para que 
la tortuga estuviera andando continua- 
mente. Para ello tendríamos que decirle 
que avanzara un paso infinitas veces: 


? PARA ANDAR 
> AV1 

> ANDAR 

> FIN 


pero esto es imposible. En cambio, si po- 
nemos 


? PARA ANDAR 

> AV1 

> AV1 

> AV1 

> FIN 
la tortuga avanza un paso, busca lo que 
significa ANDAR, avanza un paso, busca 
lo que significa ANDAR, avanza un 
paso... es decir, no pararía de avanzar 
por la pantalla. 


Por tanto, vemos que, de momento, si 
decimos a la tortuga que ejecute un pro- 
cedimiento recursivo nunca termina de 
hacerlos porque siempre vuelve a empe- 
zar el mismo procedimiento. 

Para que la tortuga pare de ejecutarlo 
tendremos que dar una o varias teclas 
del teclado (normalmente, la tecla 
BREAK): 


Figura 1 


Al pulsar esta tecla, la tortuga nos pone 
un mensaje en la pantalla diciendonos 
que ha parado la ejecución: 


? ANDAR 
INTERRUMPIDO 


> 


Figura 2 


am Algunos procedimientos 
= recursivos 
Vamos a dibujar una espiral cuadrada 


mediante un procedimiento recursivo. 
Nos basta con poner: 


? PARA ESPIRAL C: LARGO 


HAZ "LARGO: LARGO + 3 
ESPIRALC :LARGO 
FIN 


VVVVVV 


Si ahora escribimos 


ESPIRALC 20 


la tortuga empezaría pintando el primer 
lado de la espiral avanzando 20 y segui- 
ría continuamente girando 90 y pintando 
el resto de los lados incrementando de 3 
en 3 hasta que pulsáramos la tecla de 
parada. 

Si queremos tener un procedimiento 
que sirva para dibujar cualquier espiral 
(triangular, cuadrada, pentagonal... ) te- 
nemos que usar el siguiente procedi- 
miento: 


? PARA ESPIRAL :LARGO :LADOS :PASO 
> OT 

AV :LARGO 

GD 360 / :LADOS 

HAZ "LARGO :LARGO + ¡PASO 
ESPIRAL :LARGO :LADOS :PASO 

> FIN 


sabiendo que en LARGO guardamos el 
valor de cada lado de la espiral, en LA- 
DOS el número de lados de la espiral y 
en PASO la cantidad que sumamos para 
ir aumentando el tamaño de los lados. Un 
ejemplo de ejecución puede ser: 


> 
> 
> 
> 


? ESPIRAL 53 5 
INTERRUPCION 
21m 


Figura 3 


Usando también un procedimiento re- 
cursivo podemos pintar, por ejemplo, la 
siguiente figura: 


Figura 4 


haciendo que cada raya sea de un co- 
lor aleatorio. 

El procedimiento correspondiente es el 
siguiente: 


? PARA RAYAS :LONG :ANG :PASO 
OT 

PONCL AZAR 16 

AV :LONG 

RE: LONG 

GD :ANG 

HAZ "LONG :LONG + :PASO 
RAYAS :LONG :ANG :PASO 

FIN 


VVVVVVVV 


Como vemos, en general, al escribir 
procedimientos recursivos que usan va- 
riables, antes de volver a llamar al pro- 
cedimiento escribimos un comando HAZ. 
Para evitar esto podemos variar directa- 
mente el valor de las variables al utilizar 
el propio procedimiento de nuevo. Por 
ejemplo, el procedimiento RAYAS se pue- 
de poner así: 


? PARA RAYAS :LONG :ANG :PASO 

OT 

PONCL AZAR 16 

AV :LONG 

RE :LONG 

GD :ANG 

RAYAS :LONG + :PASO :ANG :PASO 
FIN 


Por último, para pintar esta figura 


VVVVVVV 


Figura 5 


LOGO 


en la que las rayas verticales van siendo 
más grandes y las horizontales más pe- 
queñas, se puede usar este procedi- 
miento: 


? PARA FIGURA :LADOV :PASOV :LA- 
DOH :PASOH 

>= QI 

> PONCL 2 

> AV :LADOV GD 90 

> PONCL 8 

> AV:LADOH GD 90 

> FIGURA :LADOV + :PASOV :PASOV 
:LADOH - :PASOH :PASOH 

> FIN 


siendo LADOV y LADOH la longitud de las 
rayas verticales y horizontales, respecti- 
vamente, PASOV el incremento en direc- 
ción vertical y PASOH el decremento en 
dirección horizontal. 


Condiciones 


Una condición es algo que se tiene que 
cumplir para realizar una cosa. Por ejem- 
plo, nosotros solemos decir: “Si llueve me 
llevaré el paraguas.” Si la condición es 
CIERTA (llueve), se realiza la acción, 
mientras que si es FALSA (no llueve), no 
se hace. 

Existen varias maneras de escribir una 
condición mediante la utilización de 
operadores de relación y operadores ló- 
gicos. La tortuga se encarga de realizar 
las operaciones correspondientes y de 
calcular un resultado. En este caso no es 
un número, sino CIERTO, si la condición es 
verdad, o FALSO, si la condición es menti- 
ra. 

Como siempre, con este resultado te- 
nemos que hacer algo. Podemos escribir- 
lo pero esto no es demasiado útil. Donde 
realmente se va a usar más va a ser 
acompañando a un comando que vere- 
mos más adelante. 


PASCAL 


menudo se desea se- 
leccionar los elemen- 
tos de un árbol en fun- 
ción del contenido 
de un determinado 
campo (el primer 
apellido si son fichas 
de personas, o el nú- 
mero de DNI...); a este campo se le suele 
denominar campo “clave”. Pues bien, se 
dice que un árbol binario es “de búsque- 
da” cuando, para cualquier nodo, se 
cumple que todos los nodos de su subár- 
bol izquierdo tienen una clave que se en- 
cuentra por delante de la propia y todos 
los nodos de su subárbol derecho tienen 
una clave que se encuentra por detrás. 

Al decir “por delante” o “por detrás” 
estamos dando por supuesto que hay un 
criterio de clasificación de claves; por 
ejemplo, si el campo clave fuese el ape- 
llido, “por delante” podría significar por 
delante alfabéticamente. 

Veamos un ejemplo de árbol de bús- 
queda con claves numéricas en que “por 
delante” signifique “con clave menor” 
(representaremos sólo el campo clave): 


£, do 
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ARBOLES DE BUSQUEDA 


Para buscar el elemento 34, por ejem- 
plo, el proceso seria el siguiente: 


Primero observaríamos la raíz del árbol 
para ver si es el elemento 34; como es el 
58 y el árbol es de búsqueda, caso de 
que existiese el 34; debería encontrarse 
en el subárbol izquierdo. 

Para buscar en éste, el proceso sería si- 
milar: observaríamos su raíz y, como ésta 
es el elemento 31, llegaríamos a la con- 
clusión de que el elemento 34 debería 
encontrarse en su subárbol derecho, es 
Sa en el encabezado por el elemen- 
to 47. 


De la comparación con este último de- 
duciriamos que el elemento 34 debería 


encontrarse a su vez en su subárbol iz- 


quierdo donde, por fin, lo encontraría- 
mos. 


Si, tras esta secuencia de búsqueda, 
llegásemos a un nodo sin subárboles por 
donde avanzar, la conclusión sería que 
el elemento no está en el árbol (imagine- 
mos que buscamos el elemento 35, por 
ejemplo). 


Resulta claro que el procedimiento de 
busqueda se puede expresar de manera 
recursiva muy fácilmente. Una función tal 
que nos devuelva un puntero al nodo 
buscado, o bien el valor NIiL si no existe 
podría ser: 


function DondeEsta (C: Clave_t; P: Puntero_t): Puntero_t; 


(k Busca en el árbol apuntado por P el elemento con clave C *) 
(k Devuelve un puntero al nodo si lo encuentra, o bien NIL. X) 


begin 


( si ya no hay dónde mirar, devuelve NIL: > 
if P= nil then DondeEsta:= mil 


- 
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t si es este modo, se acabó: 


t si 


t y si no, 


end; 


else if C = P”.Clave then DondeEsta:= P 


es menor, buscar por la izquierda: > 
else if C < P”.Clave then DondeEsta:= DondeEsta (C.P”. Izquierdo) 


buscar por la derecha: 
else DondeEsta:= DondeEsta (C,P”.Derecho) 


Sin embargo, éste es un caso en que la solución interativa es también sencilla y, 


por tanto, preferible: 


var EsEste: boolean; 
begin 
EsEste:= false; 


else P:= P”.Derecho; 


DondeEsta:= P 
end; 


Como recordará el lector, este proce- 
dimiento es casi idéntico al de búsque- 
da de un elemento en una lista lineal, 
sólo que con la posibilidad de escoger 
entre dos caminos distintos en cada ite- 
ración. 

En el árbol de búsqueda del ejemplo, 
para encontrar el elemento 34 habría- 
mos necesitado realizar cuatro compara- 
ciones, las mismas que para cualquier 
otro elemento de su mismo nivel; para los 
elementos del nivel anterior habrían sido 
necesarias tres, etc. En definitiva, tendría- 
mos que el número medio de compara- 
ciones necesario para encontrar los ele- 
mentos del árbol sería de 3,27, más o me- 
nos; además, el número necesario para 
llegar a la conclusión de que un elemen- 
to no se encuentra en el árbol sería de 4. 

En una lista lineal ordenada con el mis- 
mo número de elementos, en promedio 
harían falta 8 comparaciones. 


function DondeEsta (C: Clave_t; P: Puntero_t): Puntero_t; 


(Xx Busca en el árbol apuntado por P el elemento con clave C X) 
(x Devuelve un puntero al nodo si lo encuentra, o bien NIL. *) 


while (P <> nil) and not EsEste do 
if C = P”.Clave then EsEste:= true 
else if C < P”.Clave then P:= P”. Izquierdo 


En un árbol de nivel 20, por ejemplo, 
podríamos tener más de un millón de ele- 
mentos, y en el peor de los casos harían 
falta 20 comparaciones para dar por ter- 
minada una búsqueda; en una lista con 
una cantidad de elementos semejante 
haría falta, sin embargo, un número me- 
dio de comparaciones del orden de me- 
dio millón. 

En una tabla ordenada de datos, me- 
diante el procedimiento denominado 
“búsqueda dicotómica”, se puede en- 
contrar un elemento dado con un núme- 
ro de operaciones similar al de un árbol 
binario de búsqueda, pero, como ya se 
comentó en su momento, esa ventaja so- 
bre las listas se pierde a la hora de aña- 
dir nuevos elementos si se quiere que la 
estructura permanezca ordenáda, pues 
obliga cada vez a correr de sitio parte de 
los elementos. 

El árbol reúne las mejores característi- 


cas tanto para la búsqueda como para 
la inserción de elementos. 


m Inserción de elementos 


En principio, las operaciones necesa- 
rias para insertar un nuevo elemento en 
el sitio correcto de un árbol de búsque- 
da parecen sencillas. 

Supongamos que en el árbol del ejem- 
plo queremos insertar el elemento 41. 
Para empezar, lo compararíamos con el 
nodo raíz y, al estar antes que éste, lle- 
garíamos a la conclusión de que el nue- 
vo elemento habría de ubicarse en su su- 
bárbol izquierdo; pasaríamos entonces a 
compararlo con el nodo 31 y, como éste 
debería encontrarse ante de 41, pasaría- 
mos a investigar por su subárbol dere- 
cho. De esta manera llegaríamos al nodo 
34; aquí ya no se puede avanzar más, 
por lo que la búsqueda se ha terminado: 
el nuevo elemento debe ubicarse como 
descendiente directo y, al estar detrás, 
debe ser descendiente derecho. 

Si ahora quisiéramos añadir el elemen- 
to 39, por razonamientos parecidos lle- 
garíamos a la conclusión de que su lugar 
en el árbol es el de descendiente direc- 
to izquierdo del nodo 41. 

El árbol, tras la inclusión de estos dos 
elementos, quedaría así: 
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Queda claro que el árbol sigue siendo 
de búsqueda. 

El procedimiento de inserción, en prin- 
cipio, podría ser similar en la fase inicial 
de búsqueda a los que ya hemos visto; 
sin embargo, al llevar a la práctica la in- 
serción del nuevo elemento hay que mo- 
dificar uno de los dos punteros del nodo 
al que va a ser enlazado. 

Aunque el método iterativo se puede 
utilizar aquí también, se complica ligera- 
mente, pues hay que guardar en todo 
momento un puntero al nodo antecesor 
a aquél en que nos encontremos, para 
poder así modificarlo en su caso. El mé- 
todo recursivo es fácilmente adaptable: 

Nótese el paso del puntero “por nom- 
bre” para así poder modificar la variable 
que aparecería en la lista de parámetros 
en el momento de la llamada. Para inser- 
tar un elemento con clave 77, si el pun- 
tero que apunta al nodo raíz se llamase 
Raiz, haríamos: 


InsertarEn (Raiz, 77); 


begin 
if P = nil then 
begin 
new (P); 
with P do 
begin 
Clave:= C; 
(X otros campos... 
Izquierdo:= mil; 
Derecho := mil 
end 


end 


else (kx C es 
end; 


procedure InsertarEn (var P: Puntero_t; C: Clave_t); 


(kx Añade al árbol apuntado por P un nodo con clave C K) 


(k hemos llegado a un extremo X) 


(X P pasa a apuntar a una nueva ficha X) 


x) 


else if C < P”.Clave then InsertarEn (P”.Izquierdo,C) 
else if C > P”.Clave then InsertarEn (P”.Derecho,C) 


igual a P”.Clave, o sea, que ya estaba...X) 


, 
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Si la nueva ficha ya estuviera prepara- 
da, tras ejecutarse new (P) bastaría con 
asignarla a P”. Por otra parte, lo que ha de 
hacerse en caso de que la ficha que se 
intenta insertar se encuentre ya en el ár- 
bol depende de cada programa, como 
veremos próximamente con un ejemplo. 


[Ml Equilibrio 


Antes de empezar a crear un árbol, la 
variable Raiz tendrá el valor NIL y, tras la 
primera llamada al procedimiento Inser- 
tarEn, pasará a apuntar al que ya para 
siempre será el nodo raíz. 

Supongamos que empezamos a inser- 
tar los nodos del árbol del ejemplo en el 
siguiente orden: 100, 98, 88, 80... El nodo 
raiz tendra la clave 100; posteriormente, 
el 98 quedará, lógicamente, en su subár- 
bol izquierdo; el 88, asu vez, en el izquier- 
do del 98... 

Está claro que acabaríamos con un ár- 
bol que, en la práctica, sería como una 
lista: 


100 


de nil 
de 


do n11l 


de 


En otras pajabras, si, por casualidad, 
uno de los primeros elementos en ser in- 
sertados tiene una clave con valor muy 
extremo, la mayoría de los elementos 
que añadamos con posterioridad des- 
cenderán por el mismo subárbol. 

Se denomina árbol perfectamente 
equilibrado a aquél en que, para cual- 
quier nodo, se cumple que el número de 
nodos de su subárbol derecho y el núme- 
ro de nodos de su subárbol izquierdo di- 
fieren en, a lo sumo, una unidad; el pri- 
mer árbol de ejemplo sería, pues, un ár- 
bol perfectamente equilibrado. 

Está claro que, a medida que va desa- 
pareciendo el equilibrio de un árbol, van 
desapareciendo sus ventajas, hasta lle- 
garse al caso del último ejemplo. 


Aunque existen métodos para “reequi- 
librar” e, incluso, otros tipos de árbol con 
desequilibrio limitado gracias a su espe- 
cial estructura, su tratamiento desborda 
el alcance de esta obra. 


(u Borrado de un elemento 


La operación de borrado de un ele- 
mento no es tan sencilla como la de in- 
serción. Se pueden diferenciar dos ca- 
SOS: 

1. El nodo a eliminar tiene, a lo sumo, 
descendientes por uno de sus subárbo- 
les. 

2. El nodo a eliminar tiene descendien- 
tes por ambos subárboles. 

En el caso 1, la operación es muy sen- 
cilla: si carece de descendientes, basta 
con asignar el valor NIL al puntero de su 
antecesor, mientras que si sólo los tiene 
por un subárbol, basta con hacer que su 
antecesor pase a apuntar a su único des- 
cendiente inmediato (o sea, quitarlo de 
enmedio). 

En el caso 2 no es tan sencillo: del an- 
tecesor sólo queda libre un puntero, pero 
hay dos subárboles a enganchar. Una so- 
lución consiste en buscar entre todos los 
nodos contenidos en su subárbol izquier- 
do el que, según el criterio de ordena- 
ción, se encuentre inmediatamente an- 
tes y ponerlo en su lugar; la otra consiste 
en reemplazarlo por el nodo de su árbol 
derecho inmediatamente posterior. 
Cualquiera de las dos soluciones es vá- 
lida. 

Para encontrar el nodo inmediatamen- 
te anterior basta con, empezando por el 
descendiente inmediato izquierdo, 
avanzar todo lo que se pueda por ramas 
derechas y, para el inmediatamente pos- 
terior, basta con avanzar desde el des- 
cendiente inmediato derecho por las ra- 
mas izquierdas. Tras sustituir el contenido 
del nodo a eliminar por el del nodo es- 
cogido, habrá que borrar este último; sea 
cual sea el nodo que hayamos escogido, 
está claro que carece por lo menos de 
un descendiente, pues si no, habríamos 
seguido avanzando, por lo que su borra- 
do no presentará problemas. 


(MODULA-2 1) 


ODULA-2 es un len- 
guaje de programa- 
ción estructurado y 
modular, de esta últi- 
ma característica 
proviene el nombre. 
Fue diseñado en 1977 
por Niklaus Wirth para 
mejorar y eliminar los fallos de sus ante- 
riores lenguajes de programación: MO- 
DULA y el ampliamente conocido PAS- 
CAL. Con respecto a este último posee 
las siguientes mejoras: 


— Posibilidad de desarrollar progra- 
mas en módulos y permitir la compila- 
ción separada de cada uno de ellos. 

— Posibilidades de multiprograma- 
ción (corrutinas); esto es, varios progra- 
mas, o procesos, ejecutándose simultá- 
neamente. 

— Facilidad para acceder a los recur- 
sos hardware del ordenador, mediante 
instrucciones de bajo nivel, lo que antes 
sólo se podía realizar en lenguaje máqui- 
na. 

Todos los lenguajes de programación 
más modernos, como el ADA y en menor 
manera el C, incluyen la posibilidad de 
desarrollar programas en módulos. 

Al realizar programas muy grandes, O 
complicados, éstos se suele subdividir en 
un cierto número de bloques lógicos, en- 
cargando al diseño de cada uno de ellos 
a un programador diferente. Al poco de 
comenzar el trabajo cada programador 
comienza a realizar su tarea con su pro- 
pio estilo, separándose ligeramente de 
las especificaciones iniciales. Por otra 
parte, pronto se acaban los nombres 
para las variables, que deben indicar la 
función de la variable para simplificar el 
trabajo al depurar el programa. Para evi- 


OTROS LENGUAJES 


tar todos estos problemas cada progra- 
mador realizará un módulo. 

En cada parte se definen el módulo de 
definición y el de implementación. En el 
primero se indica qué es lo que se pue- 
de conocer en el exterior del módulo, lo 
que se exporta, qué funciones necesita 
de otros módulos, lo que se importa. En 
el módulo de implementación se escribe 
el programa propiamente dicho, pero 
dentro de este podemos realizar todo lo 
que deseemos, con los nombres que 
queramos que en el programa sólo se co- 
nocerá lo que hayamos definido como 
exportable. 

Como módulo se entiende una colec- 
ción de declaraciones y una secuencia 
de sentencias. Comienza con MODULE y 
finaliza con END. La cabecera contiene 
los identificadores del módulo, y posible- 
mente las listas de los objetos que impor- 
ta de otros módulos, lista de importación, 
y la lista de los objetos que exporta para 
que sean accesibles por el resto de los 
módulos, lista de exporación. Así que un 
módulo esconde todos los objetos que el 
programador quiere que permanezcan 
locales, sólo permitiéndo que sean ac- 
cesibles los que desee. 

Los objetos locales a un módulo ten- 
drán el mismo nivel que en un programa 
cualquiera; pueden considerarse locales 
a ciertos procedimientos del módulo, o 
globales a 0 uno entero. 

Al final de todas las declaraciones de 
procedimientos del módulo viene el 
cuerpo del módulo, que se ejecuta cuan- 
do los procedimientos a los cuales el mó- 
dulo es local son referenciadas. Si mu- 
chos módulos son declarados, entonces 
estas sentencias son ejecutadas en la 
misma secuencia en que se referencien 
los módulos. 
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La utilidad de estos cuerpos del módu- 
lo son la inicialización de las variables lo- 
cales al modulo. 


Si un identificador está en una lista de 
exportación supone que no hay ningún 
objeto con el mismo nombre en otro mó- 
dulo usado. Si existiera otro deberíamos 
añadir la palabra clave QUALIFIED; en 
este caso para referenciar los objetos 
con esta propiedad debemos colocar el 
nombre del módulo del que se importan 
seguido de un punto y el nombre del ob- 
jeto. De esta forma se evitan posibles co- 
lisiones entre objetos de diferentes mó- 
dulos, que presumiblemente denotarán 
diferentes objetos. 


Un módulo puede tener muchas listas 
de importación. Si éstas comienzan con 
FROM y el nombre del módulo del que se 


: CARDINAL ; 


ReadCard (X); 


ReadCard (Y); 


WHILE X = 


Y 


DO 


1E 


> 


Y THEN 


END; 
WriteCard (X,6); 


END MCD. 


MODULE MCD; (%* CALCULO DE!. "MAXIMO COMUN DIVISOR *) 


be 
EORM InQut IMPORT ReadCard,WriteCard; 


SA IN 


desea importar eliminarán la propiedad 
de identificador cualificado (QUALIFIED), 
por lo que podrán ser utilizados como 
identificadores corrientes. 

Existen dos tipos de módulos, los de de- 
finición (DEFINITION MODULE), en los que 
se declaran los objetos que desean que 
sean conocidos por el resto de los módu- 
los; y el módulo de implementación (IM- 
PLEMENTATION MODULE), en el que viene 
el programa propiamente dicho. La ra- 
zón de esta separación es que quien 
quiera utilizar dicho módulo sólo deberá 
conocer el módulo de definición, sin im- 
portarle de qué manera está implemen- 
tado, utilizándolo como una caja negra 
que hace lo que queremos, pero que no 
conocemos cómo funciona. 

Veamos un ejemplo de utilización de 
módulo: 
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